home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Caml Light 0.7 / Caml Light 0.7 source / src / lex / scanner.ml < prev    next >
Text File  |  1995-07-05  |  12KB  |  215 lines
  1. buf )
  2. and action_0 lexbuf = (
  3.  incr comment_depth; comment lexbuf )
  4. and state_0 lexbuf =
  5.   match get_next_char lexbuf with
  6.     `\`` -> action_3 lexbuf
  7.  |  `*` -> state_63 lexbuf
  8.  |  `(` -> state_62 lexbuf
  9.  |  `"` -> action_2 lexbuf
  10.  |  `\000` -> action_4 lexbuf
  11.  |  _ -> action_5 lexbuf
  12. and state_1 lexbuf =
  13.   match get_next_char lexbuf with
  14.     `\\` -> state_51 lexbuf
  15.  |  `\000` -> backtrack lexbuf
  16.  |  _ -> state_50 lexbuf
  17. and state_2 lexbuf =
  18.   match get_next_char lexbuf with
  19.     `\\` -> state_44 lexbuf
  20.  |  `"` -> action_10 lexbuf
  21.  |  `\000` -> action_14 lexbuf
  22.  |  _ -> action_15 lexbuf
  23. and state_3 lexbuf =
  24.   match get_next_char lexbuf with
  25.     `}` -> action_17 lexbuf
  26.  |  `{` -> action_16 lexbuf
  27.  |  `\`` -> action_19 lexbuf
  28.  |  `(` -> state_36 lexbuf
  29.  |  `"` -> action_18 lexbuf
  30.  |  `\000` -> action_21 lexbuf
  31.  |  _ -> action_22 lexbuf
  32. and state_4 lexbuf =
  33.   match get_next_char lexbuf with
  34.     `z`|`y`|`x`|`w`|`v`|`u`|`t`|`s`|`r`|`q`|`p`|`o`|`n`|`m`|`l`|`k`|`j`|`i`|`h`|`g`|`f`|`d`|`c`|`b`|`a`|`Z`|`Y`|`X`|`W`|`V`|`U`|`T`|`S`|`R`|`Q`|`P`|`O`|`N`|`M`|`L`|`K`|`J`|`I`|`H`|`G`|`F`|`E`|`D`|`C`|`B`|`A` -> state_17 lexbuf
  35.  |  ` `|`\013`|`\010`|`\t` -> state_7 lexbuf
  36.  |  `|` -> action_31 lexbuf
  37.  |  `{` -> action_28 lexbuf
  38.  |  `e` -> state_23 lexbuf
  39.  |  `\`` -> action_27 lexbuf
  40.  |  `_` -> state_21 lexbuf
  41.  |  `^` -> action_41 lexbuf
  42.  |  `]` -> action_35 lexbuf
  43.  |  `[` -> action_34 lexbuf
  44.  |  `?` -> action_37 lexbuf
  45.  |  `=` -> action_29 lexbuf
  46.  |  `;` -> state_14 lexbuf
  47.  |  `-` -> action_42 lexbuf
  48.  |  `+` -> action_38 lexbuf
  49.  |  `*` -> action_36 lexbuf
  50.  |  `)` -> action_40 lexbuf
  51.  |  `(` -> state_9 lexbuf
  52.  |  `"` -> action_26 lexbuf
  53.  |  `\000` -> action_43 lexbuf
  54.  |  _ -> action_44 lexbuf
  55. and state_7 lexbuf =
  56.   lexbuf.lex_last_pos <- lexbuf.lex_curr_pos;
  57.   lexbuf.lex_last_action <- magic action_23;
  58.   match get_next_char lexbuf with
  59.     ` `|`\013`|`\010`|`\t` -> state_32 lexbuf
  60.  |  _ -> backtrack lexbuf
  61. and state_9 lexbuf =
  62.   lexbuf.lex_last_pos <- lexbuf.lex_curr_pos;
  63.   lexbuf.lex_last_action <- magic action_39;
  64.   match get_next_char lexbuf with
  65.     `*` -> action_24 lexbuf
  66.  |  _ -> backtrack lexbuf
  67. and state_14 lexbuf =
  68.   lexbuf.lex_last_pos <- lexbuf.lex_curr_pos;
  69.   lexbuf.lex_last_action <- magic action_44;
  70.   match get_next_char lexbuf with
  71.     `;` -> action_30 lexbuf
  72.  |  _ -> backtrack lexbuf
  73. and state_17 lexbuf =
  74.   lexbuf.lex_last_pos <- lexbuf.lex_curr_pos;
  75.   lexbuf.lex_last_action <- magic action_25;
  76.   match get_next_char lexbuf with
  77.     `z`|`y`|`x`|`w`|`v`|`u`|`t`|`s`|`r`|`q`|`p`|`o`|`n`|`m`|`l`|`k`|`j`|`i`|`h`|`g`|`f`|`e`|`d`|`c`|`b`|`a`|`Z`|`Y`|`X`|`W`|`V`|`U`|`T`|`S`|`R`|`Q`|`P`|`O`|`N`|`M`|`L`|`K`|`J`|`I`|`H`|`G`|`F`|`E`|`D`|`C`|`B`|`A`|`9`|`8`|`7`|`6`|`5`|`4`|`3`|`2`|`1`|`0`|`'` -> state_26 lexbuf
  78.  |  `_` -> state_27 lexbuf
  79.  |  _ -> backtrack lexbuf
  80. and state_21 lexbuf =
  81.   lexbuf.lex_last_pos <- lexbuf.lex_curr_pos;
  82.   lexbuf.lex_last_action <- magic action_32;
  83.   match get_next_char lexbuf with
  84.     `z`|`y`|`x`|`w`|`v`|`u`|`t`|`s`|`r`|`q`|`p`|`o`|`n`|`m`|`l`|`k`|`j`|`i`|`h`|`g`|`f`|`e`|`d`|`c`|`b`|`a`|`Z`|`Y`|`X`|`W`|`V`|`U`|`T`|`S`|`R`|`Q`|`P`|`O`|`N`|`M`|`L`|`K`|`J`|`I`|`H`|`G`|`F`|`E`|`D`|`C`|`B`|`A`|`9`|`8`|`7`|`6`|`5`|`4`|`3`|`2`|`1`|`0`|`'` -> state_26 lexbuf
  85.  |  _ -> backtrack lexbuf
  86. and state_23 lexbuf =
  87.   lexbuf.lex_last_pos <- lexbuf.lex_curr_pos;
  88.   lexbuf.lex_last_action <- magic action_25;
  89.   match get_next_char lexbuf with
  90.     `z`|`y`|`x`|`w`|`v`|`u`|`t`|`s`|`r`|`q`|`p`|`n`|`m`|`l`|`k`|`j`|`i`|`h`|`g`|`f`|`e`|`d`|`c`|`b`|`a`|`Z`|`Y`|`X`|`W`|`V`|`U`|`T`|`S`|`R`|`Q`|`P`|`O`|`N`|`M`|`L`|`K`|`J`|`I`|`H`|`G`|`F`|`E`|`D`|`C`|`B`|`A`|`9`|`8`|`7`|`6`|`5`|`4`|`3`|`2`|`1`|`0`|`'` -> state_26 lexbuf
  91.  |  `o` -> state_28 lexbuf
  92.  |  `_` -> state_27 lexbuf
  93.  |  _ -> backtrack lexbuf
  94. and state_26 lexbuf =
  95.   lexbuf.lex_last_pos <- lexbuf.lex_curr_pos;
  96.   lexbuf.lex_last_action <- magic action_25;
  97.   match get_next_char lexbuf with
  98.     `z`|`y`|`x`|`w`|`v`|`u`|`t`|`s`|`r`|`q`|`p`|`o`|`n`|`m`|`l`|`k`|`j`|`i`|`h`|`g`|`f`|`e`|`d`|`c`|`b`|`a`|`Z`|`Y`|`X`|`W`|`V`|`U`|`T`|`S`|`R`|`Q`|`P`|`O`|`N`|`M`|`L`|`K`|`J`|`I`|`H`|`G`|`F`|`E`|`D`|`C`|`B`|`A`|`9`|`8`|`7`|`6`|`5`|`4`|`3`|`2`|`1`|`0`|`'` -> state_26 lexbuf
  99.  |  `_` -> state_27 lexbuf
  100.  |  _ -> backtrack lexbuf
  101. and state_27 lexbuf =
  102.   match get_next_char lexbuf with
  103.     `z`|`y`|`x`|`w`|`v`|`u`|`t`|`s`|`r`|`q`|`p`|`o`|`n`|`m`|`l`|`k`|`j`|`i`|`h`|`g`|`f`|`e`|`d`|`c`|`b`|`a`|`Z`|`Y`|`X`|`W`|`V`|`U`|`T`|`S`|`R`|`Q`|`P`|`O`|`N`|`M`|`L`|`K`|`J`|`I`|`H`|`G`|`F`|`E`|`D`|`C`|`B`|`A`|`9`|`8`|`7`|`6`|`5`|`4`|`3`|`2`|`1`|`0`|`'` -> state_26 lexbuf
  104.  |  _ -> backtrack lexbuf
  105. and state_28 lexbuf =
  106.   lexbuf.lex_last_pos <- lexbuf.lex_curr_pos;
  107.   lexbuf.lex_last_action <- magic action_25;
  108.   match get_next_char lexbuf with
  109.     `z`|`y`|`x`|`w`|`v`|`u`|`t`|`s`|`r`|`q`|`p`|`o`|`n`|`m`|`l`|`k`|`j`|`i`|`h`|`g`|`e`|`d`|`c`|`b`|`a`|`Z`|`Y`|`X`|`W`|`V`|`U`|`T`|`S`|`R`|`Q`|`P`|`O`|`N`|`M`|`L`|`K`|`J`|`I`|`H`|`G`|`F`|`E`|`D`|`C`|`B`|`A`|`9`|`8`|`7`|`6`|`5`|`4`|`3`|`2`|`1`|`0`|`'` -> state_26 lexbuf
  110.  |  `f` -> state_29 lexbuf
  111.  |  `_` -> state_27 lexbuf
  112.  |  _ -> backtrack lexbuf
  113. and state_29 lexbuf =
  114.   lexbuf.lex_last_pos <- lexbuf.lex_curr_pos;
  115.   lexbuf.lex_last_action <- magic action_25;
  116.   match get_next_char lexbuf with
  117.     `z`|`y`|`x`|`w`|`v`|`u`|`t`|`s`|`r`|`q`|`p`|`o`|`n`|`m`|`l`|`k`|`j`|`i`|`h`|`g`|`f`|`e`|`d`|`c`|`b`|`a`|`Z`|`Y`|`X`|`W`|`V`|`U`|`T`|`S`|`R`|`Q`|`P`|`O`|`N`|`M`|`L`|`K`|`J`|`I`|`H`|`G`|`F`|`E`|`D`|`C`|`B`|`A`|`9`|`8`|`7`|`6`|`5`|`4`|`3`|`2`|`1`|`0`|`'` -> state_26 lexbuf
  118.  |  `_` -> state_27 lexbuf
  119.  |  _ -> backtrack lexbuf
  120. and state_32 lexbuf =
  121.   lexbuf.lex_last_pos <- lexbuf.lex_curr_pos;
  122.   lexbuf.lex_last_action <- magic action_23;
  123.   match get_next_char lexbuf with
  124.     ` `|`\013`|`\010`|`\t` -> state_32 lexbuf
  125.  |  _ -> backtrack lexbuf
  126. and state_36 lexbuf =
  127.   lexbuf.lex_last_pos <- lexbuf.lex_curr_pos;
  128.   lexbuf.lex_last_action <- magic action_22;
  129.   match get_next_char lexbuf with
  130.     `*` -> action_20 lexbuf
  131.  |  _ -> backtrack lexbuf
  132. and state_44 lexbuf =
  133.   lexbuf.lex_last_pos <- lexbuf.lex_curr_pos;
  134.   lexbuf.lex_last_action <- magic action_15;
  135.   match get_next_char lexbuf with
  136.     `9`|`8`|`7`|`6`|`5`|`4`|`3`|`2`|`1`|`0` -> state_47 lexbuf
  137.  |  `t`|`r`|`n`|`b`|`\\`|`"` -> action_12 lexbuf
  138.  |  ` `|`\026`|`\013`|`\012`|`\010`|`\t` -> state_45 lexbuf
  139.  |  _ -> backtrack lexbuf
  140. and state_45 lexbuf =
  141.   lexbuf.lex_last_pos <- lexbuf.lex_curr_pos;
  142.   lexbuf.lex_last_action <- magic action_11;
  143.   match get_next_char lexbuf with
  144.     ` `|`\026`|`\013`|`\012`|`\010`|`\t` -> state_45 lexbuf
  145.  |  _ -> backtrack lexbuf
  146. and state_47 lexbuf =
  147.   match get_next_char lexbuf with
  148.     `9`|`8`|`7`|`6`|`5`|`4`|`3`|`2`|`1`|`0` -> state_48 lexbuf
  149.  |  _ -> backtrack lexbuf
  150. and state_48 lexbuf =
  151.   match get_next_char lexbuf with
  152.     `9`|`8`|`7`|`6`|`5`|`4`|`3`|`2`|`1`|`0` -> action_13 lexbuf
  153.  |  _ -> backtrack lexbuf
  154. and state_50 lexbuf =
  155.   lexbuf.lex_last_pos <- lexbuf.lex_curr_pos;
  156.   lexbuf.lex_last_action <- magic action_9;
  157.   match get_next_char lexbuf with
  158.     `\`` -> action_6 lexbuf
  159.  |  _ -> backtrack lexbuf
  160. and state_51 lexbuf =
  161.   lexbuf.lex_last_pos <- lexbuf.lex_curr_pos;
  162.   lexbuf.lex_last_action <- magic action_9;
  163.   match get_next_char lexbuf with
  164.     `9`|`8`|`7`|`6`|`5`|`4`|`3`|`2`|`1`|`0` -> state_52 lexbuf
  165.  |  `t`|`r`|`n`|`b`|`\``|`\\` -> state_53 lexbuf
  166.  |  _ -> backtrack lexbuf
  167. and state_52 lexbuf =
  168.   match get_next_char lexbuf with
  169.     `9`|`8`|`7`|`6`|`5`|`4`|`3`|`2`|`1`|`0` -> state_55 lexbuf
  170.  |  _ -> backtrack lexbuf
  171. and state_53 lexbuf =
  172.   match get_next_char lexbuf with
  173.     `\`` -> action_7 lexbuf
  174.  |  _ -> backtrack lexbuf
  175. and state_55 lexbuf =
  176.   match get_next_char lexbuf with
  177.     `9`|`8`|`7`|`6`|`5`|`4`|`3`|`2`|`1`|`0` -> state_56 lexbuf
  178.  |  _ -> backtrack lexbuf
  179. and state_56 lexbuf =
  180.   match get_next_char lexbuf with
  181.     `\`` -> action_8 lexbuf
  182.  |  _ -> backtrack lexbuf
  183. and state_62 lexbuf =
  184.   lexbuf.lex_last_pos <- lexbuf.lex_curr_pos;
  185.   lexbuf.lex_last_action <- magic action_5;
  186.   match get_next_char lexbuf with
  187.     `*` -> action_0 lexbuf
  188.  |  _ -> backtrack lexbuf
  189. and state_63 lexbuf =
  190.   lexbuf.lex_last_pos <- lexbuf.lex_curr_pos;
  191.   lexbuf.lex_last_action <- magic action_5;
  192.   match get_next_char lexbuf with
  193.     `)` -> action_1 lexbuf
  194.  |  _ -> backtrack lexbuf
  195. and main lexbuf =
  196.   start_lexing lexbuf;
  197.   state_4 lexbuf
  198.  
  199. and action lexbuf =
  200.   start_lexing lexbuf;
  201.   state_3 lexbuf
  202.  
  203. and string lexbuf =
  204.   start_lexing lexbuf;
  205.   state_2 lexbuf
  206.  
  207. and char lexbuf =
  208.   start_lexing lexbuf;
  209.   state_1 lexbuf
  210.  
  211. and comment lexbuf =
  212.   start_lexing lexbuf;
  213.   state_0 lexbuf
  214. ;;
  215.